procedure EnableList(List: TList; Enable: Boolean = True);\r
procedure SetTracksEnabled(const Value: Boolean);\r
function AllValid: Boolean;\r
- function ValidateNumerical(AEdit: TEdit; AMin, AMax: Extended): Boolean;\r
+ function ValidateNumerical(AEdit: TCustomEdit; AMin, AMax: Extended): Boolean;\r
procedure ChangeCheckBoxesChecked(AComponent: TComponent; Restore: Boolean = False);\r
public\r
{ Public-Deklarationen }\r
AControl.Left := AControl.Left + 4;\r
end;\r
\r
-function TfrmFilter.ValidateNumerical(AEdit: TEdit; AMin, AMax: Extended): Boolean;\r
+function TfrmFilter.ValidateNumerical(AEdit: TCustomEdit; AMin, AMax: Extended): Boolean;\r
var\r
s: string;\r
v: Extended;\r
ValidateNumerical(edWayptRadius, 0, 99999) and\r
ValidateNumerical(edWayptRadiusLat, -180, 180) and\r
ValidateNumerical(edWayptRadiusLon, -90, 90) and\r
- ValidateNumerical(edWayptMergeDist, 0, 99999999);\r
+ ValidateNumerical(edWayptMergeDist, 0, 99999999) and\r
+ ValidateNumerical(edRoutesSimplifyMaxPoints, 1, 9999);\r
ChangeCheckBoxesChecked(Self, False);\r
end;\r
\r